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ж ж 
ж аааааааа 2272222222 хх XX * 
ж QQQQQQQQQQ 22222222 хх хх ж 
* QQ QQ 77 хх хх ж 
ж са QQ 77 ххх ж 
ж са са 77 ххх ж 
ж са QQ QQ 22 хх хх ж 
ж QQQQQQQQQQ 27227777 хх хх * 
* QQQQQQQQ 777277777 хх XX * 
* QQ * 
* * 
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EDITOR'S NOTES 
K5XY 


Well, I did get a new printer. 
However it had a completely differ:nt set of 
operating codes so I had to reformat QZX, а 
time consum 79 job. However it is a faster, 
easier to i.» printer so I wil get that time 
back in the coming months. Тһе type is a 
little easier to read too. Furthermore 
changes in the computing setup here now make 
it much easier and quicker to spell check 
anything that I write. Thus there is hope 
that you will not see as many typographical 
errors. 

RMG sent in some new ads and пеп- 
tioned that several QZX readers had placed 
orders. Naturally that made them happy. 
They do have an impressive array of Sinclair 
products, including new and used computers. 

KA8THG, Marion Brimberry, has sent 
the readers of QZX some RAM packs for anybody 
Who can use them. There are four 16 K packs 
Which he has indicated are to be given to the 
first readers who can use them. Рог details 
see the unclassifieds. 

I have been thinking about republish- 
ing in a booklet the series of articles by 
Don Lamen on the 781900 (and 181) SCL chip. 
It is hard to get all that information in one 
place. If anybody has any corrections or 
improvements that they would like to see in 
that series, please send them to me immedi- 
ately. If anybody is interested in getting 
the booklet, please drop me a card so I can 
get an estimate of the interest. 


UNCLASSIFIED ADS 


WANTED: UNCLASSIFIED ADS for publica- 
tion in QZX. Cost is 1 cent for each key- 
stroke (characters, blanks, etc.). Payment 
must be included with order. This is an 
excellent way to sell your program or unwant- 
ed equipment, ask for help, or find a specif- 
ic program. Send your ad with payment to 
QZX, 2925 O'Donnell, Las Cruces, NM 88061. 


QZX Discount: 15% discount on all orders 
mentioning QZX. T & C Services (address in 
ad in this issue). 


FOR SALE: CP/M Books. Almost new. Half 
price. THE PROGRAMMER'S CP/M HANDBOOK by Andy 
Johnson-Laird. Osborn. Hardback 586 pages. 
$19. TBE BYTE GUIDE TO CP/M by Mark Dahmke. 
McGraw Hill $8.58. 250 pages. CP/M USERS 
GUIDE by Thom Hogan. Osborne $8.95, 334 


pages. THE CP/M PLUS HANDBOOK by Alan R. 
Miller. Sybex, 250 pages. $7.99. INSIDE 
CP/M PLUS by David E. Cortesi.  Holt-Rine- 
hart. 26% pages. $9.25. CP/M BIBLE by 
Waite and Angermeyer. Howard Sams. 434 
pages. 59.94. USERS GUIDE TO CP/M SYSTEMS 
by Bove and Rhodes. Baen. 364 pages. 
54.54. 51.09 each shipping and handling. А. 


F. Burr, 2025 O'Donnell, Las Cruces, NM 
88011. 


FREE: Four 16 К RAM packs for the ZX81 or 
751090 contributed by KA8THGC. One Sinclair 
ZX 16K RAM. One Memopak 16K (feed through 
socket). One Byte-Back M 16 (feed through 
socket but screws missing from case). One 
Byte-Back M 16 (no printed circuit board on 
the feed through socket). Also one KRADLE 
users manual, (KRADLE was a keyboard, memory 
expansion unit.) All as is. Please indicate 
the order of preference for the packs. Packs 
shipped in the order that requests are re- 
ceived. It would be appreciated if a contri- 
bution toward the mailing erpenses were made. 
Send requests to QZX (KA8TEG), 2425 O'Don- 
nell, Las Cruces, NM 88661. 


TIMEX sinclair 2065 


ж 


QZX FRIENDS 


KB3KD -- Tom renewed and sent а 
contribution to the postage fund. 

WA3QLW -- Leslie renewed and sent а 
generous contribution to the postage fund. 
Leslie is now Director of System Operations 
for one of the larger cellular telephone 
companies in the country. It is possible 
that he may be sent to Russia to help them 
install а telecommunications system. 


FOR YOUR TMEX/SINCLAIN NEEDS. VOU 


CAM COUNT OM.MMO TO BE HERE FOR А LONG 
3 TIME TO COME! SPREAD THE WORD! THOUGH 
MANY PRODUCTS ARE BECOMING HARD TO FIND. 
Š WE WILL DO OUR BEST TO FL IPEA NEEDS? 4 
t FOR CATALOG. SEND $4 TO: 


, RING ENTERPRISES > 


1419 1/2 7TH STREET 


А OREGON CITY, OR 97045 
3 503/655-7484 2-10 PM PT TUE-SAT А 
ç VISA а МС RCCEPTEDI 2 
y ж. am Фм a of 
Ж”? ж? w L nd 
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BITS AND BYTES 


171 On the TS 2068, you can get the paper 
color by entering E MODE/UNSHIFTED AND A 
COLOR 1-7. You must go back to the original 
color at the end of the line or all the lines 
Will be the зале color. 


172 An example of double inputs is given on 
the two lines below. 

1 INPUT "Comment"; AS; CHR$; 
13;"Comment"; B$ 

2 INPUT "Comment"; A$: CER$; 
13;"Comment"; B$ 


173 The following short subroutine can be 
used to get a stripped border on the 752068. 

ЯШ FOR I=] TO 266 

9910 BORDER 1:BORDER 2 

9626 BORDER 3:BORDER 4 

9836 BORDER 5:BORDER 6 

9940 BORDER 7:BORDER 8 

9656 BORDER 9:BORDER f 

9060 BORDER PAUSE 1 

9676 NEXT I: RETURN 


SATELLITE TRACKING 
W6WNK and WA6DLI 


This month we finish the satellite 
tracking program by W6WHK as modified by 
WAGDLI. It was run in installments as it is 
quite a long program. The underlying progran 
was distributed by AMSAT when the 2191 was 
the official AMSAT computer. Bob modified 
the program when N6VMO, John, asked for any 
Timer satellite tracker so he could put his 
to use. It is very instructive to see the 
tricks used to straighten out dates in this 
program. It has been modified for 030-13 
with the latest parameters included. 02 has 
also been ammentded to cover the sideral 
parameters for later years. 

The 781668 nemory limit keeps it from 
having a data base of Keplerian (Keps) con- 
stants for a selection of satellites to 
permit а choice. But a tape made and edited 
for each satellite works just fine. 
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LET RO = 6378.16 

LET F = 1/298.25 

IF MM > .1 THEN LET АО = ((GO/(MM**2))**(1/3)) 

IF MM <= .1 THEN LET MM=SQR (GO/(AO**3)) 

LET E2 = 1 - EO**2 

LET El = БОК (E2) 

LET FA = 0 

LET QO = MA/360 

IF A = 3 THEN GOTO 3010 

PRINT : TAB 3; "OSCAR-13 ON ---" =MQ;"/":DM:"/":YR,,, :REM oscar txt inv 
IF А = 2 THEN LPRINT; TAB 1;"А0/13 MODE B ON ---";MO;"/";DM;"/":YR,,, :REM 
inverse ao/13 txt 

IFA- 2 THEN GOTO 6955 

PRINT "UTC "> TAB 6;"AZ "; TAB 10;"EL"; TAB 14;"PHS'; :REM INV in "" 
IF А = 1 THEN GOTO 7010 

LPRINT "UTC ": TAB 6;"AZ "; TAB 10;"EL"; TAB 13;"RANGE"; ТАВ 20:"LON": 
TAB 24;"LAT"; TAB 28; "РН5"; :REM INV in "" 

LET K2 = 9.95 * ((RO/AO)**3.5)/(E2*X*2) 

LET Е1 = SIN (IO*PO) 

LET C1 - COS (IO*PO) 

LET О = КААМ - (T-JD)*K2*Cl :REM oh, not a zero 

LET SO - SIN (O*PO) 

LET CO = COS (O*PO) 

LET W - WO * (T-JD) * K2*(2.5*(C1**2)-.5) МУ 
LET 52 = SIN (ИЖРО) 

LET C2 = COS (W*PO) 

DIM C(3,2) 

LET C(1,1) =(C2*CO) - (S2*SO*C1) 

LET C(1,2) = -(S2*CO) - (C2*SO*C1) 

LET C(2,1) = (C2*SO) + (S2*CO*C1) 

LET С(2,2) = -(S2*SO) + (C2*CO*C1) 

LET C(3,1) = (S2*S1) 

LET С(3,2) = (C2451) 

LET О = MM*(T-JD) + ОО :REM Q oh, not Q zero 

LET K = INT Q 

LET M9 = INT ((Q-K)*256) 

LET M = (О-К)*Р2 

LET Е = M + EO*SIN М+.5 ж (EO**2) * SIN (2*M) 

LET S3 = SIN E 

LET C3 = COS E 

LET R3 = 1 - EO*C3 

LET М1 = E - EO*S3 

LET М5 = M1 -M 

IF ABS (M5) < 1E-6 THEN GOTO 7410 

LET E = E-M5/R3 

GOTO 7310 

LET XO = АО%(СЗ-ЕО) 

LET YO = AO*E1*S3 

LET R = AO*R3 

LET X1 = XO*C(1,1) + YO*C(1,2) ым 
LET Ү1 = XO*C(2,1) + YO*C(2,2) 

LET Zl = XO*C(3,1) + YO*C(3,2) 

LET G7 = T*G1 + G2 

LET G7 = (G7 - (INT G7))*P2 

LET S7 = -SIN G7 

LET C7 - COS G7 


LET X = (Х1%С7) - (Ү1*57) 

LET Y = (Х1*57) + (Ү1*С7) 

LET Z = 21 

LET 18 = L9*PO 

LET 59 = SIN (18) 

LET C9 =.COS (L8) 

LET 58 = SIN (-W9*PO) 

LET C8 = COS (W9*PO) 

LET R9 + RO*(1-(F/2) + (F/2)*COS (2*L8)) + H9/1000 
LET L8 = АТМ ((1-F)**2*59/C9) 

LET Z9 = R9 * SIN (L8) 

LET X9 = R9 * COS (L8)*C8 

LET Y9 - R9 * COS (L8)*S8 

LET X5 - (X-X9) 

LET YS = (Y-Y9) 

LET 25 = (27-79) 

LET R5 = SQR (X5*X5 + Y5*Y5 + Z5*25) 

LET DZ = 6378/R 

LET DZ = 57.3 * (-ATN (DZ/SQR (-DZ*DZ+1)) + PI/2) 
LET Z8 = (X5*C8*C9) + (Y5*S8*C9) + (25%59) 
LET X8 = -(Х5%С8%59) - (Ү5%58%59) + (25%С9) 
LET Y8 = (Y5*C8) - (Х5%58) 

LET 55 = 28/К5 

LET C5 = SQR (1-55%55) 

LET Е9 = (АТМ (55/С5))/РО 

IF E9 <= O THEN LET E9 = O 

LET A9 - (ATN (Y8/X8))/PO 

LET B5 = Z/R 

LET L5 = (АТМ (B5/(SQR (1-B5*B5))))*57.3 
LET М5 = (АТМ (Y/X))*57.3 


IF X«0 THEN LET М5 = 180-W5 

IF X50 AND Ү<0 THEN LET М5 -W5 

IF X>0 AND Y>O THEN LET W5 360-W5 

IF X = O AND Y>+0 THEN LET W5 = 270 

IF X = 0 AND Ү<0 THEN LET W5 = 90 

IF X8<0 THEN LET A9 = A9+180 

IF Х8›0 AND Y8<0 THEN LET A9 = 360 + A9 
IF X8 = 0 AND Y8 >= O THEN LET A9 = 90 
IF X8 = 0 AND Ү8<0 THEN LET A9 = 270 
LET T4 = (INT ((T-INT Т)*2400 + .5))/100 
LET Т4 = 100%((Т4-ІМТ T4)* .6 + INT T4) 
GOSUB 6030 


H H 


IF А = 3 THEN СОТО 9000 

IF А = 1 THEN GOSUB 9799 

IF А = 2 AND М9›= 219 AND М9 <#235 THEN GOTO 9005 
IF А = 2 AND E9<=0 THEN GOTO 9005 

IF A = 2 AND E9>0 THEN GOTO 9002 

IF À = 2 THEN GOTO 9002 

SLOW 

GOTO 7040 


PRINT АТ 2,19; "CITY AT-";T$ :КЕМ INV in "" 
GOSUB 5250 

LET T = T+1/48 

IF (T-T2) > .38 THEN GOSUB 9880 

GOTO 7040 
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PRINT ;TAB 0;Т5; TAB 6;INT A9; TAB 10; INT E9; TAB 13; INT R5; 
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TAB 20; INT М5; ТАВ 24; INT 15; TAB 29; INT М9; — 
IF À = 3 THEN GOTO 9031 

IF А = 2 THEN LPRINT; TAB 0; TS; TAB 6; INT A9; ТАВ 10; INT E9; 

TAB 13; INT К5; TAB 20; INT W5; TAB 24; INT 15; TAB 28; INT М9; 

LET T = T+1/48 

LET TB = VAL Т5 

IF TB = 2330 THEN GOTO 9040 

GOTO 3010 

IF M95200 AND .M9<217 THEN PRINT AT 16,15;"MODE L IS ON" :REM INV in "" 


IF M9>40 AND M9<=199 THEN PRINT АТ 16,15;"MODE B IS ON" :REM INV in "" 
IF M9 >=217 AND М9 <=233 THEN PRINT АТ 16,15;"MODE B IS ОМ" :REM INV in " 


IF M9 <=30 OR M9 >=230 THEN PRINT AT 16,15; "TRANSPONDER OFF" :REM INV tx 
GOTO 3185 


LET DM = DM+1 

IF MO=2 AND YR <> 88 AND YR <> 92 AND YR <> 96 THEN GOTO 9599 
IF MO=1 OR MO=3 OR MO=5 OR MO=7 OR MO=8 OR MO=10 OR МО=12 THEN GOTO 9600 
IF MO=4 OR MO=6 OR МО=9 OR MO=11 THEN GOTO 9650 

IF MO=2 AND YR=88 OR YRs92 OR YR=96 THEN GOTO 9595 
STOP 

IF DMsi THEN LET МО=МО+1 

IF А = 2 THEN СОТО 9700 

GOTO 3010 

LET L9=-35 

LET W9-185 

GOTO 6815 “/ 
LET L9=35.48 

LET W9=-139.51 

GOTO 6815 

LET L9=53.0 

LET W9=-.17 

GOTO 6815 

LET 19=40.72 

LET W9=74.02 

GOTO 6815 

LET L9=-37.5 

LET М9-0 

GOTO 6815 

PRINT USR 8683 

RUN 

CLS 

LET A = 2 

GOTO 6200 

CLS 

LET A = 1 

GOTO 6200 

IF DM>=30 AND YR=88 OR YR=92 OR YR=96 THEN LET DM-1 
GOTO 9600 

IF DM>=29 THEN LET DM=1 

IF DM>=32 THEN LET DM=1 

IF DM=1 THEN LET МО=МО+1 

IF MO=13 AND DM=1 THEN LET YR=YR+1 bu 
IF MO-13 THEN LET MO-1 

IF A = 2 THEN GOTO 9700 

GOTO 9105 

IF DM>=31 THEN LET DM=1 

IF рМ=1 THEN LET MO=MO+1 
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9652 IF A = 2 THEN GOTO 9700 

9653 GOTO 9105 

9670 IF E9<-3. -THEN LET T=T#b/24 т 77 
9680 IF E9>-3 THEN LET T=T#1/48 ^ ^"^'" 


9700 LPRINT "ssssssssssssssssss'' е 
9701 LPRINT "ssssssss----- "UPMO;U-UIDMU-UIYRIU"-----U,, 


9705 GOTO 6955. 

9800 IF ЕА=1 THEN СОТО 8460 

9840 IF A = 1 THEN PRINT; TAB 0;Т$; TAB 6; INT A9; TAB 10; INT E9; 
TAB 14; INT M9 

9850 LET T=T+1/48 | 

9860 IF (T-T2) > .38 ТНЕМ СОТО 9875 

9870 GOTO 7040 

9875 IS А = 1 THEN СОТО 9880 

9880 LET ЕА=1 


9890 LET T=T2 

9895 SLOW 

9899 RETURN 

9997 SAVE "VR-85" 

9998 GOTO 25 

9999 PRINT PEEK 16396«256*PEEK 16397-16562 


“Notes: The line numbers are correct, just grew jumbled from years of re-edit! 
If you are doing this on a ZX-81 or TS-1000 (with required 16K memory pack) 
that you found or discovered in garage sale etc. be aware that most of the 
things in CAPs that are basic words are SINGLE keystroke on Sinclairs and 
will not work if typed in as letters: e.g. INT COS SIN ATN REM SLOW RETURN 
GOTO SAVE PRINT any basic word, including the IF AND TO OR etc. 


This copy typed from a working printout of OSC-10 but modified for OCR-13 as 
OSR -10 does not yet have enough light to be active. 
Lines 9031 to 9038 should be edited for M9 PHS in orbit to represent a current 


transponder schedule. Can add lines in same vein to also report S mode or other 
mode.. 


This is still a very good program, especially for print out of lists of sched. 
This program was hot stuff when the Timex 1000/2Х-81 was the OFFICIAL AMSAT 
computer. Can be edited for other sats or microsats. Best to make a new tape 
program for each. The 16K memory prevents a menu and long list of sat parameter 
to be installed within program as usually done when more memory available. 


To avoid memory pack disconnect while typing, put computer on a magazine like a 
Readers' Digest and let the memory pack hand over the edge so its feet can't 
touch the table. This will eliminate most crashes due to flexing of memory back 
against edge connector when both computer and pack feet are on a table! 


Have fun..Bob Howard, WA6DLI 


(The VR-85 was expanded into a popular Commodore tracker by W6AMW and the 
commodore version available from him at call book address...has a charge and 
is on disk.) 

G2 (sideral constant) later years: '92 0.27477847, '93 0.27685328, 
'94 0.27619018, (95 0.27552707, 196 0.27486398, '97 0.27693879, 
'98 0.27627569, 199 0.27561259 

{ex 


73, KSXY 


QZX presente the beet software & 
hardware projects available for 
the radio amateur. While the 
contente are believed to be 
accurate, no warranty is extended 
on апу program or project. No investi- 
gation hae been made of the 
Claims or reputation of апу advertiser. 
It would be greatly appreciated if all 
correspondence requiring an answer 
would be accompanied by a self-ad- 
dressed stamped envelope (SAJE). 
Copyright by QZX, 1991. All rights 
reserved, photocopying by permission 
only. ISSN 1855-1735 
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RXAXZXEXXZXXXEXXEXZEXXZXEXEXEXEZXXZEXXXZZZXXEEXE 
Please send me QZX for 1 year, starting 
immediately. Enclosed is $15.88 for 
twelve issues. (Those with addresses 
not in Canada, the US, or Hexico send 
$25 in US funds for air mail delivery.) 
Thanks. (91788) 
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BOB SWOGER 
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613 PARKSIDE CIRCLE 
STREAMWOOD, IL 60107 


